home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / fpc09905c.lha / fpc / inc / filerec.inc < prev    next >
Text File  |  1998-09-21  |  3KB  |  122 lines
  1. {
  2.     $Id: filerec.inc,v 1.3 1998/05/21 11:55:59 carl Exp $
  3.     This file is part of the Free Pascal run time library.
  4.     Copyright (c) 1993,97 by the Free Pascal development team
  5.  
  6.     See the file COPYING.FPC, included in this distribution,
  7.     for details about the copyright.
  8.  
  9.     This program is distributed in the hope that it will be useful,
  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12.  
  13.  **********************************************************************}
  14.  
  15. const
  16. {$ifdef linux}
  17.   filerecnamelength = 255;
  18. {$endif}
  19. {$ifdef Win32}
  20.     filerecnamelength = 255;
  21. {$endif}
  22. {$ifdef MACOS}
  23.     filerecnamelength = 255;
  24. {$endif}
  25. {$ifdef AMIGA}
  26.     filerecnamelength = 255;
  27. {$endif}
  28. {$ifdef OS2}
  29.     filerecnamelength = 79;
  30. {$endif}
  31. {$ifdef GO32V2}
  32.     filerecnamelength = 79;
  33. {$endif GO32V2}
  34. {$ifdef GO32V1}
  35.     filerecnamelength = 79;
  36. {$endif Go32v1}
  37. {$ifdef ATARI}
  38.     filerecnamelength = 79;
  39. {$endif}
  40.  
  41. Type
  42. {$PACKRECORDS 2}
  43.   FileRec = Record
  44. {$ifdef win32}
  45.      handle    : longint;
  46. {$endif win32}
  47. {$ifdef amiga}
  48.      handle    : longint;
  49. {$endif amiga}
  50. {$ifdef macos}
  51.      handle    : longint;
  52. {$endif macos}
  53. {$ifdef linux}
  54.      handle    : word;
  55. {$endif}
  56. {$ifdef go32v1}
  57.      handle    : word;
  58. {$endif go32v1}
  59. {$ifdef go32v2}
  60.      handle    : word;
  61. {$endif go32v2}
  62. {$ifdef atari}
  63.      handle    : word;
  64. {$endif atari}
  65. {$ifdef os2}
  66.      handle    : word;
  67. {$endif os2}
  68.     Mode      : word;
  69.     RecSize   : word;
  70.     _private  : array[1..26] of byte;
  71.     UserData  : array[1..16] of byte;
  72.     name      : array[0..filerecnamelength] of char;
  73.   End;
  74.  
  75. {
  76.   $Log: filerec.inc,v $
  77.   Revision 1.3  1998/05/21 11:55:59  carl
  78.    * works with all OS
  79.  
  80.   Revision 1.1.1.1  1998/03/25 11:18:43  root
  81.   * Restored version
  82.  
  83.   Revision 1.7  1998/02/05 12:08:54  pierre
  84.     * added packrecords to about dword alignment
  85.       for structures used in dos calls
  86.  
  87.   Revision 1.6  1998/01/26 12:00:21  michael
  88.   + Added log at the end
  89.  
  90.  
  91.   
  92.   Working file: rtl/inc/filerec.inc
  93.   description:
  94.   ----------------------------
  95.   revision 1.5
  96.   date: 1998/01/06 00:29:32;  author: michael;  state: Exp;  lines: +20 -19
  97.   Implemented a system independent sequence of reset/rewrite/append fileopenfunc etc system \n (from Peter Vreman)
  98.   ----------------------------
  99.   revision 1.4
  100.   date: 1997/12/01 12:08:03;  author: michael;  state: Exp;  lines: +13 -0
  101.   + added copyright reference header.
  102.   ----------------------------
  103.   revision 1.3
  104.   date: 1997/11/28 18:56:18;  author: pierre;  state: Exp;  lines: +2 -1
  105.     bug fix     in ifdef win32
  106.   ----------------------------
  107.   revision 1.2
  108.   date: 1997/11/27 22:49:04;  author: florian;  state: Exp;  lines: +7 -0
  109.   - CPU.PP added
  110.   - some bugs in DOS fixed (espsecially for go32v1)
  111.   - the win32 system unit is now compilable
  112.   ----------------------------
  113.   revision 1.1
  114.   date: 1997/11/27 08:33:46;  author: michael;  state: Exp;
  115.   Initial revision
  116.   ----------------------------
  117.   revision 1.1.1.1
  118.   date: 1997/11/27 08:33:46;  author: michael;  state: Exp;  lines: +0 -0
  119.   FPC RTL CVS start
  120.   =============================================================================
  121. }
  122.